home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / DEMONSTR / MATHVIEW.ZIP / STARTUP2.M < prev    next >
Text File  |  1994-03-18  |  2KB  |  69 lines
  1. % a replacement for startup1.m which supports user defined colors
  2. % and multiple graphics windows
  3.  
  4. %       S.Halevy 7/31/92
  5. %       Copyright (c) 1992 by the MathWizards
  6.  
  7. % load the built-in functionality         
  8. %_loadlib
  9.  
  10. % Graphics Windows Placement (8 graphics windows)
  11. _xw=[0.59   0   0.2 0.25
  12.     0.79   0        0.2 0.25
  13.     0.59   0.25   0.2 0.25
  14.     0.79   0.25   0.2 0.25
  15.     0.59   0.5     0.2 0.25
  16.     0.79   0.5     0.2 0.25
  17.     0.59   0.75   0.2 0.25
  18.     0.79   0.75   0.2 0.25];
  19.  
  20. %Graphics Windows Titles
  21. _xt=['G1'
  22.      'G2'
  23.      'G3'
  24.      'G4'
  25.      'G5'
  26.      'G6'
  27.      'G7'
  28.      'G8'];
  29.  
  30. %define palette colors (RGB values)
  31. _pl=[127   0 127
  32.        0   0   0          % black
  33.      255   0   0          % red
  34.        0 255   0          % green
  35.        0   0 255          % blue
  36.        0 255 255          % light blue
  37.      255   0 255          % magenta
  38.      255 255   0          % yellow
  39.      127 127 127          % dark gray
  40.      127   0   0          % dark red
  41.        0 127   0          % dark green
  42.        0   0 127          % dark blue
  43.        0 127 127          % dark indigo
  44.      127   0 127          % purple
  45.      127 127   0          % dark yellow
  46.      192 192 192          % light gray
  47.       64 127   0
  48.      127  64   0
  49.      127   0  64
  50.      127  64  64
  51.       64   0  64
  52.       64  64 127
  53.      127 255   0
  54.      255 127 255
  55.        0 255 127
  56.      255   0 127
  57.      255 127 127];
  58.  
  59. gwinit(_xw,_xt,_pl);   % initialize Graphic Windows
  60.  
  61. % you can clear these variables now
  62. % clear _xw,_xt,_pl
  63.  
  64. % define constants which can be global
  65. i=1I;
  66. j=1J;
  67. e=2.71828182845904523536;
  68. disp('startup completed')
  69.